
FOR EACH ptp_det EXCLUSIVE-LOCK:
    FIND FIRST hktp_mstr NO-LOCK WHERE hktp_part = ptp_part NO-ERROR.
    IF AVAILABLE hktp_mstr THEN DO :
       ASSIGN ptp__dec02 = hktp_tax_pct.
       MESSAGE ptp_part.
    END.
/*     DISP ptp_part ptp_site ptp__dec02. */
END.
